home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1998 July
/
EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso
/
earkit
/
browser
/
ibrowsescripts
/
rexx
/
onlinemiami.ibrx
< prev
next >
Wrap
Text File
|
1998-05-24
|
794b
|
36 lines
/* OnlineMiami Sören Forsberg 1998 */
/* */
OPTIONS RESULTS
IF SHOW('Ports','MIAMI.1') THEN DO
ADDRESS 'MIAMI.1'
'ISONLINE'
result=rc
IF result=1 THEN DO
ok=open('OnlineMiami','CON:60/100/150/22/OnlineMiami/cds')
call writeln 'OnlineMiami',' Miami is'
call writeln 'OnlineMiami','ALLREADY CONNECTED!!'
ADDRESS "COMMAND" "wait 3"
END
'ISONLINE'
result=rc
IF result=0 THEN DO
IF EXISTS('ibrowse:rexx/onlinewin.ibrx') THEN ADDRESS "COMMAND" 'run sys:rexxc/rx ibrowse:rexx/onlinewin.ibrx'
'ONLINE'
END
END
IF ~SHOW('Ports','MIAMI.1') THEN DO
ADDRESS 'COMMAND'
'Run MIAMI:Miami'
'SYS:RexxC/WaitForPort MIAMI.1'
IF EXISTS('ibrowse:rexx/onlinewin.ibrx') THEN ADDRESS "COMMAND" 'run sys:rexxc/rx ibrowse:rexx/onlinewin.ibrx'
END
EXIT